home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / 20arieel.zip / Bin / runagend.arx < prev    next >
Text File  |  1996-06-19  |  1KB  |  39 lines
  1. /******************************************************************************/
  2. /* Copyright 1995 (C) by Andreas Haack
  3. ** $Id: runagend.arx,v 1.3 1996/03/03 21:04:20 hak Exp $
  4. *******************************************************************************
  5. ** run agenda
  6. ** $Log: runagend.arx,v $
  7. ** Revision 1.3  1996/03/03 21:04:20  hak
  8. ** release version
  9. **
  10. ** Revision 1.2  1996/02/04 16:04:15  hak
  11. ** after restructering to dll target
  12. **
  13. ** Revision 1.1  1996/01/28 03:44:51  hak
  14. ** Initial revision
  15. **
  16. ** Revision 1.1  1996/01/23 22:00:53  hak
  17. ** Initial revision
  18. **
  19. *******************************************************************************/
  20.  
  21. /*******************************************************************************
  22. * example running ibm works agenda from the bonus pack
  23. *******************************************************************************/
  24.  
  25. call RxFuncAdd 'RxMessageBox', 'RexxUtil', 'RxMessageBox'
  26.  
  27. trace('O');
  28.  
  29. IbmWorks = value('IBMWORKS_INI',,'OS2ENVIRONMENT');
  30. rc = stream(IbmWorks||'\FPWPIM.EXE', 'c' , 'QUERY EXIST');
  31.  
  32. if rc \= '' then
  33.    address CMD 'start '||IbmWorks||'\FPWPIM.EXE -M';
  34. else
  35.    call RxMessageBox("IBMWORKS from bopnuspack not correctly installed!", "Error, could not load agenda", "OK", "HAND");
  36.  
  37. return 0;
  38.  
  39.